﻿Public Class ucCadastroAgendamento

    Private Sub ucCadastroAgendamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gbDescricao.Text = ".::Relacionamento de Todos Agendamentos de " & Date.Now
    End Sub

    Private Sub tsbNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbNovo.Click
        frmAgendamento.ShowDialog()
    End Sub
End Class
